// Five Object oriented engine (Objects 32 bits) and Class TClass test

//----------------------------------------------------------------------------//

function Main()

   local oClass := TClass():New( "TWINDOW" )
   local oWnd

   oClass:AddData( "hWnd" )
   oClass:AddData( "nTop" )
   oClass:AddData( "nLeft" )

   oClass:AddMethod( "Test", @Test() )
   oClass:Create()

   oWnd = oClass:Instance()

   oWnd:Test()

   oWnd:hWnd = 123
   MsgInfo( oWnd:hWnd )

   oWnd:nTop = 5
   MsgInfo( oWnd:nTop )
   oWnd:nLeft = 6
   MsgInfo( oWnd:nLeft )

   MsgInfo( oWnd:ClassName() )

   MsgInfo( oClass:ClassName() )
   MsgInfo( oClass:ClassH() )

return nil

//----------------------------------------------------------------------------//

static function Test()

   MsgInfo( "inside test" )

return nil

//----------------------------------------------------------------------------//
